home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / util / batch / chequals.lha / CheckQuals / CheckQualifiers.doc < prev    next >
Text File  |  1995-04-16  |  2KB  |  79 lines
  1.  
  2.                               CheckQualifiers
  3.                               ~~~~~~~~~~~~~~~
  4.                               
  5.                                 Version 1.4
  6.                                 
  7.                                 15-Jan-1995
  8.  
  9.  
  10. Legal Stuff:
  11. ~~~~~~~~~~~~
  12. DISCLAIMER: CHECKQUALIFIERS SOFTWARE IS PROVIDED "AS-IS", NO WARRANTIES OF
  13. ANY KIND ARE MADE. ALL USE IS AT YOUR OWN RISK.
  14.  
  15. Copyright: Freeware
  16.  
  17. CheckQualifiers was written on an A4000 with OS 3.1 (V40), but should work
  18. on all 68000 based machines with OS 2.04 (V37) and up.
  19.  
  20.  
  21. Description:
  22. ~~~~~~~~~~~~
  23. CheckQualifiers is a small CLI utility meant for use in scripts. It checks
  24. if a given set of qualifiers is currently pressed or not and sets its
  25. return code accordingly. There is no output unless you ask for the template
  26. or an error occurs, so a closed cli window will (hopefully) not pop up.
  27.  
  28. Template:
  29. LSHIFT/S,RSHIFT/S,CAPSLOCK/S,CONTROL/S,LALT/S,RALT/S,LCOMMAND/S,RCOMMAND/S,
  30. MIDBUTTON/S,RIGHTBUTTON/S,LEFTBUTTON/S
  31.  
  32. Example:
  33. ~~~~~~~~
  34. We check for both LSHIFT and LALT. The return code is returned in $rc, as
  35. all good programs should do. If there are more than one IF to react to the
  36. qualifiers, we need to store $rc in one of our variables because IF changes
  37. the contents of $rc.
  38.  
  39.     CheckQualifiers LSHIFT LALT
  40.     Echo >ENV:cqrc $rc ; save $rc to $cqrc
  41.     
  42.     IF VAL $cqrc EQ 0
  43.         Echo "neither LSHIFT nor LALT"
  44.     ENDIF
  45.     
  46.     IF VAL $cqrc EQ 1
  47.         Echo "LSHIFT or LALT, but not both"
  48.     ENDIF
  49.     
  50.     IF VAL $cqrc EQ 2
  51.         Echo "LSHIFT and LALT and something else"
  52.     ENDIF
  53.     
  54.     IF VAL $cqrc EQ 3
  55.         Echo "LSHIFT and LALT and nothing else"
  56.     ENDIF
  57.     
  58.     UnSetEnv cqrc
  59.  
  60. EQ checks for equality. You can use GT, GE, NOT GT and NOT GE to check for
  61. >, >=, <=, <, respectively.
  62.  
  63. Author:
  64. ~~~~~~~
  65. Thomas Ansorge
  66. Dinkelackerring 55
  67. D-67435 Neustadt an der Weinstraße
  68. Germany
  69. EUROPE
  70.  
  71. Greetings go to...
  72. ~~~~~~~~~~~~~~~~~~
  73. my beta-testers Michael and Stephan,
  74.  
  75. and all authors, who publish something and do not ask for anything in
  76. return.
  77.  
  78. Happy checking! Th. :-})
  79.